## # A tibble: 1 × 1
## n
## <int>
## 1 50
d_theo_causal_raw <- read_csv(here("code/analysis/pilot/theoretical-rdm-data/d_theories_categories.csv"))
d_theo_causal <- d_theo_causal_raw %>%
select(itemA, itemB, MindBodyAction_itemA, MindBodyAction_itemB) %>%
mutate(within_domain_int = case_when(
#intuitive bio
MindBodyAction_itemA == "bio" & MindBodyAction_itemB == "act" ~ 0,
MindBodyAction_itemA == "act" & MindBodyAction_itemB == "bio" ~ 0,
MindBodyAction_itemA == "bio" & MindBodyAction_itemB == "bio" ~ 0,
#intuitive psych
MindBodyAction_itemA == "mind" & MindBodyAction_itemB == "act" ~ 0,
MindBodyAction_itemA == "act" & MindBodyAction_itemB == "mind" ~ 0,
MindBodyAction_itemA == "mind" & MindBodyAction_itemB == "mind" ~ 0,
TRUE ~ 1),
cross_domain_int = case_when(
MindBodyAction_itemA == "bio" & MindBodyAction_itemB == "act" ~ 0,
MindBodyAction_itemA == "act" & MindBodyAction_itemB == "bio" ~ 0,
MindBodyAction_itemA == "bio" & MindBodyAction_itemB == "bio" ~ 0,
MindBodyAction_itemA == "mind" & MindBodyAction_itemB == "act" ~ 0,
MindBodyAction_itemA == "act" & MindBodyAction_itemB == "mind" ~ 0,
MindBodyAction_itemA == "mind" & MindBodyAction_itemB == "mind" ~ 0,
#cross-domain causation
MindBodyAction_itemA == "mind" & MindBodyAction_itemB == "bio" ~ 0,
MindBodyAction_itemA == "bio" & MindBodyAction_itemB == "mind" ~ 0,
TRUE ~ 1)) %>%
select(-c("MindBodyAction_itemA", "MindBodyAction_itemB"))
key
still to do: causal rdms where everything can cause everything except for certain conditions..